home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / LongReal / longrealtest.e < prev    next >
Encoding:
Text File  |  1994-10-04  |  652 b   |  27 lines
  1. /*
  2.  
  3. idée: Piet Molenaar
  4.  
  5. calcule (a*a-4)*3 pour a = 2 à ..
  6. trouve les "a" (entier, a,a+1,a+2 sont les longueurs d'un triangle avec
  7. pritquements les mêmes cotés), tel que la surface soit un nombre rond!
  8. Remarquable!
  9.  
  10. */
  11.  
  12. MODULE 'tools/longrealtiny'
  13.  
  14. PROC main()
  15.   DEF a:longreal, b:longreal, c:longreal, d:longreal, e:longreal, s[100]:STRING, x
  16.   dInit()
  17.   dFloat(4,b)
  18.   dFloat(3,c)
  19.   FOR x:=2 TO 40000
  20.     IF (x AND $FFF)=0 THEN WriteF('Calcul, stade: \d\n',x)
  21.     IF CtrlC() THEN RETURN
  22.     dRound(dCopy(e,dSqrt(dMul(dSub(dMul(dFloat(x,a),a,d),b),c))))
  23.     IF dCompare(e,d)=0 THEN WriteF('\d <=> \s\n',x,dFormat(s,d,20))
  24.   ENDFOR
  25.   dCleanup()
  26. ENDPROC
  27.